get_week_by_date <- function(
  date = "2032-06-18",
  eng = T,
  known_date = "2021-11-22",
  known_week = 1
){
  date_diff <- as.numeric(as.Date(date) - 
                  as.Date(known_date))
  date_mod7 <- date_diff %% 7
  cal_week <- known_week + date_mod7
  if(eng){
    eng_vec <- c("Mon", "Tue", "Wed", 
                 "Thu", "Fri", "Sat",
                 "Sun")
    return(eng_vec[cal_week])
  }else{
    return(cal_week)
  }
}


#### Test Area ####
# get_week_by_date("2021-11-22", eng = T)
